home *** CD-ROM | disk | FTP | other *** search
/ Stuart Little 2 Press Kit / Stuart Little 2 Press Kit.iso / pc / SL2.dxr / New Save Image Cast_76_Write Caption File.ls < prev    next >
Encoding:
Text File  |  2002-06-24  |  1.4 KB  |  68 lines

  1. on writeFile
  2.   global gSavePath, gfd
  3.   filePath = gSavePath & gfd & "Captions.txt"
  4.   fileText = member("Caption Text").text
  5.   fileIOInstance = xtra("FileIO").new()
  6.   if not fileIOInstance.objectp then
  7.     alert("File IO Xtra missing")
  8.     exit
  9.   end if
  10.   fileIOInstance.createFile(filePath)
  11.   case fileIOInstance.status() of
  12.     0:
  13.       nothing()
  14.     (-122):
  15.       fileIOInstance.openFile(filePath, 0)
  16.       delete(fileIOInstance)
  17.       fileIOInstance.createFile(filePath)
  18.     otherwise:
  19.       alert("Error: " & fileIOInstance.error(fileIOInstance.status()))
  20.       exit
  21.   end case
  22.   fileIOInstance.openFile(filePath, 0)
  23.   fileIOInstance.writeString(fileText)
  24.   fileIOInstance.closeFile()
  25. end
  26.  
  27. on enterFrame
  28.   writeFile()
  29. end
  30.  
  31. on exitFrame
  32.   global gIM01, gIM02, gIM03, gIM04, gIM05, gIM06, gIM07, gIM08, gIM09, gIM10, gIM11, gIM12, gIM13, gIM14, gIM15, gIM16, gIM17, gIM18, gIM19, gIM20, gIM21, gIM22, gIM23, gIM24, gIM25, gIM26, gIM27, gIM28, gLOGO1, gLOGO2, gSHEET, gPNOTES
  33.   gIM01 = 0
  34.   gIM02 = 0
  35.   gIM03 = 0
  36.   gIM04 = 0
  37.   gIM05 = 0
  38.   gIM06 = 0
  39.   gIM07 = 0
  40.   gIM08 = 0
  41.   gIM09 = 0
  42.   gIM10 = 0
  43.   gIM11 = 0
  44.   gIM12 = 0
  45.   gIM13 = 0
  46.   gIM14 = 0
  47.   gIM15 = 0
  48.   gIM16 = 0
  49.   gIM17 = 0
  50.   gIM18 = 0
  51.   gIM19 = 0
  52.   gIM20 = 0
  53.   gIM21 = 0
  54.   gIM22 = 0
  55.   gIM23 = 0
  56.   gIM24 = 0
  57.   gIM25 = 0
  58.   gIM26 = 0
  59.   gIM27 = 0
  60.   gIM28 = 0
  61.   gLOGO1 = 0
  62.   gLOGO2 = 0
  63.   gSHEET = 0
  64.   gPNOTES = 0
  65.   puppetTransition(49, 2)
  66.   go("Save")
  67. end
  68.